home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD019c.dsk / AD.LRH.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  16 lines
  1. 10  TEXT : HOME : HTAB 6: PRINT "L.R.H. ENTERPRISES PRESENTS:"
  2. 20  INVERSE : VTAB 3: HTAB 13: PRINT "THE MENU MAKER": NORMAL : PRINT "  A UTILITY FOR APPLESOFT PROGRAMMERS"
  3. 30  VTAB 7: PRINT "THE ";: INVERSE : PRINT "MENU MAKER";: NORMAL : PRINT " HELPS YOU TO CREATE AND": PRINT "EDIT DISK PROGRAM MENUS. UP TO 30 ITEMS": PRINT "PER MENU AND UP TO 15 SUB-MENUS. FULL"
  4. 40  PRINT "EDITING..ADD, DELETE, CHANGE..AND": PRINT "EVEN REARRANGE THE DISPLAY ORDER. THE": INVERSE : PRINT "MENU MAKER";: NORMAL : PRINT " WILL GENERATE A BASIC PROGRAMWHICH YOU CAN MODIFY."
  5. 50  PRINT : HTAB 14: FLASH : PRINT "* FEATURES *": NORMAL 
  6. 60  HTAB 6: PRINT "CREATES DISK MENU PROGRAMS": HTAB 7: PRINT "ALLOWS UP TO 15 SUBMENUS": HTAB 7: PRINT "LETTERED OR NUMBERED LISTS"
  7. 70  HTAB 7: PRINT "RUN, BRUN OR EXEC ACTIONS": HTAB 3: PRINT "EDITING-ADD, DELETE, CHANGE ANY ITEM": HTAB 13: PRINT "DISK PROMPTING": HTAB 6: PRINT "MODIFIABLE APPLESOFT PROGRAM"
  8. 80  VTAB 24: PRINT "HIT ANY KEY TO CONTINUE...";: POKE  -16368,0: WAIT  -16384,128: POKE 34,4
  9. 85  VTAB 23: HTAB 1: INVERSE : FOR X = 1 TO 40: PRINT " ";: NEXT : NORMAL 
  10. 90  PRINT "LIST PRICE: $19.95      ": PRINT "SPECIAL OFFER: ";: INVERSE : PRINT "$5.00 DISCOUNT";: NORMAL : PRINT " WHEN": HTAB 16: PRINT "YOU MENTION THIS AD!"
  11. 100  PRINT "YOUR PRICE: ";: FLASH : PRINT "$14.95": NORMAL 
  12. 110  PRINT "PREPAID ORDERS: ** FREE SHIPPING **": PRINT "C.O.D. ORDERS:  ADD $2.00"
  13. 120  PRINT "MAIL OR CALL:   L.R.H. ENTERPRISES": HTAB 17: PRINT "358 ASHLEY BLVD": HTAB 17: PRINT "NEW BEDFORD, MA 02746": HTAB 17: PRINT "(617) 997-7346"
  14. 130  PRINT : PRINT "HIT ANY KEY TO EXIT";: POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0
  15. 135  TEXT : PRINT : PRINT  CHR$(4)"RUNAD.MENU"
  16. 140  PRINT  CHR$(4)"AD.MENU"